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 |  All
Print Page as PDF
Routine: PSAP41

Package: Drug Accountability

Routine: PSAP41


Information

PSAP41 ;BHM/DB - PRIME VENDOR CONVERSION ROUTINE ;3/30/04

Source Information

Source file <PSAP41.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 HOME^%ZIS  ^%ZTLOAD  
VA Fileman 2 ^DIE  ^DIR  
MailMan 1 ^XMD  

Entry Points

Name Comments DBIA/ICR reference
Q
DEV
1
MSG
2
DONE
ASK
PSABGN ;begin process

External References

Name Field # of Occurrence
HOME^%ZIS DEV+2
^%ZTLOAD DEV+2
^DIE 2+2
^DIR ASK, DEV
^XMD MSG+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This routine is only to be run prior to the first execution of the Drug",!,"Accountability upload utility used with the new prime vendor (McKesson).",!
  • Line Location: PSAP41+3
Function Call: WRITE
  • Prompt: " ",$S($G(Y)=1:"YES",$G(Y)="^":"^ Install Aborted",1:"NO")
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"This utility can be run at anytime in the future from the programmer prompt",!,"by running the routine PSAP41.",!
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !!,"Incomplete information, try again"
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !,"Task was not started properly.",!
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !!,"Task Queued - Task Number: ",ZTSK,!!
  • Line Location: DEV+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • DIE
  • Line Location:
    • 2+2
Routine Call
  • DIR
  • Line Location:
    • ASK
    • DEV

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] 1, 2
^TMP("PSA" MSG+1*, MSG+2*

Label References

Name Line Occurrences
1 1, 2
2 2+3
ASK DEV
DONE ASK+1, ASK+2, DEV+2, DEV+4, MSG+5
MSG 1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA 2+2*!, DONE!
DA(1 2+2*
DIE 2+2*, DONE!
DIR ASK!, ASK+2!, DEV!, DONE!
DIR("?" DEV*
DIR("A" ASK*, DEV*
DIR("B" ASK*, DEV*
DIR(0 ASK*, DEV*
>> DIRUT ASK+1, DEV
DR 2+2*!, DONE!
DUZ DEV+1
>> PSACNT2 PSABGN+1*, 2+2*, MSG+2
PSADATA 2*, 2+1, DONE!
PSADRG PSABGN+1*, 1*, 2, 2+2, DONE!
PSADUZ DEV+1*, MSG+3, MSG+4!
PSASYN 1+1*, 2*, 2+2, DONE!
PSAVEND 2+1*, 2+2, DONE!
>> XMDUZ MSG+3*
>> XMSUB MSG*
>> XMTEXT MSG+3*
>> XMY( MSG+3*
>> XPDABORT ASK+1*
>> XPDQUIT ASK+1*
>> Y ASK, ASK+2, DEV+1
>> ZTDESC DEV+1*
>> ZTDTH DEV+1*
>> ZTIO DEV+1*
>> ZTRTN DEV+1*
>> ZTSAVE("PSADUZ" DEV+1*
>> ZTSK DEV+2, DEV+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All