Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: PSX41PST

Package: CMOP

Routine: PSX41PST


Information

PSX41PST ;BIR/PDW-New indexes in PSX patch 41, MOVE 550.1 INTO 550.21 ;08/12/2002

Source Information

Source file <PSX41PST.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
CMOP 1 EN^PSX41NDX  
Outpatient Pharmacy 1 $$CMPRXTYP^PSOCMOP  

Entry Points

Name Comments DBIA/ICR reference
EN ;
5501 ; REMOVE ENTRIES FROM 550.1
5502
MSG ; print reminder to use Kernel tasking
TXT ;
COR5502 ;correct Total RXs field from PSX*2*41 v25
CMPNDX ; new compound index on CMOP Indicator "CMP"
PIECE(REC,DLM,VP) ; VP="Variable^Piece" : S Variable=$P(REC,DLM,Piece)

External References

Name Field # of Occurrence
$$CMPRXTYP^PSOCMOP CMPNDX+11
EN^PSX41NDX EN+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: MSG+2
Function Call: WRITE
  • Prompt: !,$P(X,";;",2)
  • Line Location: MSG+3
Function Call: WRITE
  • Prompt: !!,"^^^ PLEASE NOTE THE ABOVE ^^^^"
  • Line Location: MSG+4
Function Call: WRITE
  • Prompt: !,"Pausing 20 seconds"
  • Line Location: MSG+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: MSG+5
Function Call: WRITE
  • Prompt: !,"Updating the RX Suspense file's new 'CMP' index."
  • Line Location: CMPNDX+2
Function Call: WRITE
  • Prompt: !,"Processing the AQ, AL, AX, AP indexes into the CMP index"
  • Line Location: CMPNDX+3
Function Call: WRITE
  • Prompt: !!,INDX
  • Line Location: CMPNDX+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: CMPNDX+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.5 - [#52.5] CMPNDX+6, CMPNDX+7, CMPNDX+8, CMPNDX+9, CMPNDX+10!, CMPNDX+14!, CMPNDX+15, CMPNDX+16*
^PSX(550.1 - [#550.1] 5501+2!*
^PSX(550.2 - [#550.2] COR5502+1, COR5502+2, COR5502+3, COR5502+4*
^XMB("NETNAME" EN+1, 5501+1, MSG+1

Label References

Name Line Occurrences
CMPNDX 5502+1
COR5502 5502
PIECE CMPNDX+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BATDA COR5502+3*, COR5502+4
>> CNT CMPNDX+11*
>> DFN CMPNDX+7*, CMPNDX+8, CMPNDX+10, CMPNDX+13, CMPNDX+14, CMPNDX+15, CMPNDX+16
>> DFN0 CMPNDX+13
>> DIV CMPNDX+15, CMPNDX+16
DLM PIECE~, PIECE+1
>> F CMPNDX+9*, CMPNDX+10, CMPNDX+12
>> I MSG+3*, MSG+5*
>> INDX CMPNDX+5*, CMPNDX+6, CMPNDX+7, CMPNDX+8, CMPNDX+10, CMPNDX+14
>> NDX CMPNDX+4*, CMPNDX+5, CMPNDX+13, CMPNDX+16
P PIECE+1~*
>> PSXDT COR5502+1*, COR5502+2
>> PSXTDA COR5502+2*, COR5502+3
REC CMPNDX+8*, CMPNDX+9, CMPNDX+10, CMPNDX+11, CMPNDX+14, CMPNDX+15, CMPNDX+16, PIECE~, PIECE+1
>> SDT CMPNDX+6*, CMPNDX+7, CMPNDX+8, CMPNDX+10, CMPNDX+13, CMPNDX+14, CMPNDX+16
>> SDT0 CMPNDX+13, CMPNDX+15
>> STAT CMPNDX+13, CMPNDX+15
>> TOTRX COR5502+4*
>> TYP CMPNDX+11*, CMPNDX+15, CMPNDX+16
U CMPNDX+12
V PIECE+1~*
VP CMPNDX+12*, PIECE~, PIECE+1
>> X MSG+3*
>> XX COR5502+3*, COR5502+4

Marked Items

Name Field # of Occurrence
$T(TXT+I MSG+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All