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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSGWPOST

Package: Auto Replenishment Ward Stock

Routine: PSGWPOST


Information

PSGWPOST ;BHAM/CML-POST INIT CONVERSION ROUTINE ; 27 Dec 93 / 11:12 AM

Source Information

Source file <PSGWPOST.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Auto Replenishment Ward Stock 2 ^PSGWPST1  IG^PSGWUTL1  
MailMan 1 ^XMD  
VA FileMan 1 (,NOW)^%DTC  

Entry Points

Name Comments DBIA/ICR reference
START ;
FINAL ;Set AR/WS node in file #59.7
QUIT
TIME
POST1 ;Convert RETURN REASON subfield to new location as multiple
MOVE ;
POST2 ;Re-index "IU" cross-reference in the Drug file (#50)
POST3 ;Re-initialize sort keys for AOU Inventory Groups
POST4 ;Check for duplicate entries in ITEM subfile (#58.11) of 58.1
EPST4
ACHK ;** continue checking for number of active items

External References

Name Field # of Occurrence
^%DTC TIME
NOW^%DTC QUITPOST4+2
^PSGWPST1 START+2
IG^PSGWUTL1 POST3+2
^XMD POST4+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Beginning post-init..."
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!,"Post-init completed ",PRT,".",!,"AR/WS Version 2.3 has been successfully installed!",!!,"Initialization process took ",MIN," minutes."
  • Line Location: QUIT+1
Function Call: WRITE
  • Prompt: !!,"Post-init conversion of RETURN REASON subfield has already been done!"
  • Line Location: POST1+1
Function Call: WRITE
  • Prompt: !!,"Now moving existing RETURN REASON data to new location"
  • Line Location: POST1+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: MOVE+2
Function Call: WRITE
  • Prompt: !!,"Now re-indexing the ""IU"" cross-reference in the Drug file (#50)"
  • Line Location: POST2+1
Function Call: WRITE
  • Prompt: !!,"Now re-initializing sort keys for AOUs in AOU Inventory Group file (#58.2)"
  • Line Location: POST3+2
Function Call: WRITE
  • Prompt: !!,"Now checking for duplicate entries in the ITEM subfile of the Pharmacy",!,"AOU Stock file."
  • Line Location: POST4+1
Function Call: WRITE
  • Prompt: !!,"No duplicate entries exist !"
  • Line Location: POST4+5
Function Call: WRITE
  • Prompt: !!,"Duplicate entries exist.",!,"A MailMan message is being sent to you regarding the problem."
  • Line Location: POST4+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" QUIT+2
^DD("DD" QUIT
^DD("SITE" FINAL+1
^PS(59.7 - [#59.7] FINAL+1*, FINAL+2*, POST1+1
^PSDRUG - [#50] POST2+2
^PSDRUG("IU" POST2+2!*
^PSI(58.1 - [#58.1] POST1+3, MOVE+1, MOVE+2*, POST4+3, POST4+4, ACHK+1
^PSI(58.2 - [#58.2] POST3+1
^TMP("PSGWDUP" POST4+7*, POST4+8*, POST4+9*, POST4+10*, POST4+11*, POST4+12*, POST4+13*, POST4+14*, POST4+15*, POST4+18!
^XUSEC("PSGWMGR" POST4+17

Label References

Name Line Occurrences
@( QUIT+2
ACHK POST4+4
EPST4 POST4+5
MOVE POST1+3
POST1 START+2
POST2 START+2
POST3 START+2
POST4 START+2
TIME QUIT

Naked Globals

Name Field # of Occurrence
^("SITE" FINAL+1
^(1 FINAL+1*
^(2 POST2+2
^(59.99 FINAL+2*, POST1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% QUITQUIT+3!
ACNT POST4+3*, POST4+4*, EPST4!, ACHK+1*
AOU QUIT+3!, POST1+3*, MOVE+1, MOVE+2, POST4+3*, POST4+4, ACHK+1
CNT QUIT+3!, POST2+2*, POST4+2*, POST4+4*, POST4+5
DONE QUIT*, QUIT+3!, TIME
DRG POST2+2*, POST2+3!, POST4+3*, POST4+4
DUZ POST4+17
IDT POST4+4*, EPST4!, ACHK+1*
INITDT FINAL+2, QUIT+3!
ITM QUIT+3!, POST1+3*, MOVE+1, MOVE+2, POST4+3*, POST4+4
ITMT POST4+4*, EPST4!, ACHK+1
MIN QUIT+1, QUIT+3!, TIME*
PRT QUIT*, QUIT+1, QUIT+3!
PSGWDT POST4+2*, POST4+4, EPST4!, ACHK+1
PSGWDUZ POST4+17*, POST4+18!
REA QUIT+3!, MOVE+1*, MOVE+2
RET QUIT+3!, POST1+3*, MOVE+1, MOVE+2
RRFLG START+2*, FINAL+2, QUIT+3!, POST1+4*
START QUITQUIT+3!, TIME
X FINAL+1*, QUIT+2*, QUIT+3!, TIME*, POST4+2
X1 QUIT+3!, TIME*
X2 QUIT+3!, TIME*
XMDUZ POST4+16*, POST4+18!
XMSUB POST4+16*, POST4+18!
XMTEXT POST4+16*, POST4+18!
XMY POST4+7!, POST4+18!
XMY( POST4+17*
XQABT1 QUIT+3!
XQABT2 QUIT+3!
XQABT3 QUIT+3!
XQABT4 START+1*, QUIT+3!
XQABT5 QUIT+2*, QUIT+3!
Y QUIT*, QUIT+3!, TIME*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All