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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSGOD

Package: Inpatient Medications

Routine: PSGOD


Information

PSGOD ;BIR/CML - CREATES NEW ORDER FROM OLD ONE ;Jul 27, 2020@09:22:09

Source Information

Source file <PSGOD.m>

Call Graph

Call Graph

Call Graph Total: 29

Package Total Call Graph
Inpatient Medications 18 ($$ENDD,$$ENDTC,$$ENNPN)^PSGMI  ^PSGNE3  ^PSGOE1  $$GTNEDFD^PSGOE7  ENSFE^PSGOEE0  ^PSGOETO  CHK^PSGOEV  EN^PSGPEN  
ENOS^PSGS0  ENDDC^PSGSICHK  ($$ISCLOZ,ORD,PSJFILE,TDD)^PSJCLOZ  GETUD^PSJLMGUD  INIT^PSJLMUDE  $$OINAME^PSJLMUTL  $$CHKSCHD^PSJMISC2  SETOC^PSJNEWOC  
IN^PSJOCDS  $$ENNOO^PSJUTL5  
VA FileMan 5 $$FIND1^DIC  YN^DICN  ^DIE  $$GET1^DIQ  ^DIR  
List Manager 2 EN^VALM  (FULL,PAUSE)^VALM1  
Kernel 1 $$SDEA^XUSER  
Mental Health 1 INPSND^YSCLTST5  
Pharmacy Data Management 1 $$OIDEA^PSSOPKI  
Registration 1 INP^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Inpatient Medications 2 PSGOE1  PSJOE  

Entry Points

Name Comments DBIA/ICR reference
ORIG ;Redisplay original order
DONE ;
CH ;
WH ;
OC ;Perform order checks

External References

Name Field # of Occurrence
$$FIND1^DIC PSGOD+16
YN^DICN PSGOD+23
^DIE PSGOD+84
$$GET1^DIQ PSGOD+15, PSGOD+21
^DIR PSGOD+72, PSGOD+94
$$ENDD^PSGMI PSGOD+64, PSGOD+65
$$ENDTC^PSGMI PSGOD+64, PSGOD+65
$$ENNPN^PSGMI PSGOD+65
^PSGNE3 PSGOD+62
^PSGOE1 PSGOD+89
$$GTNEDFD^PSGOE7 PSGOD+61
ENSFE^PSGOEE0 PSGOD+89
^PSGOETO PSGOD+78
CHK^PSGOEV PSGOD+66
EN^PSGPEN PSGOD+79
ENOS^PSGS0 PSGOD+68
ENDDC^PSGSICHK OC+15
$$ISCLOZ^PSJCLOZ PSGOD+13
ORD^PSJCLOZ OC+17
PSJFILE^PSJCLOZ PSGOD+86
TDD^PSJCLOZ OC+10
GETUD^PSJLMGUD PSGOD+89, ORIG+1
INIT^PSJLMUDE ORIG+1
$$OINAME^PSJLMUTL PSGOD+64
$$CHKSCHD^PSJMISC2 PSGOD+59
SETOC^PSJNEWOC PSGOD+88, PSGOD+91
IN^PSJOCDS OC+16
$$ENNOO^PSJUTL5 PSGOD+75
$$OIDEA^PSSOPKI PSGOD+37
INP^VADPT PSGOD+8
EN^VALM PSGOD+74, PSGOD+89
FULL^VALM1 OC+8, OC+14
PAUSE^VALM1 PSGOD+20, PSGOD+36, PSGOD+59, PSGOD+76
$$SDEA^XUSER PSGOD+38
INPSND^YSCLTST5 PSGOD+86

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You cannot copy Unit Dose orders for this patient!"
  • Line Location: PSGOD+8
Function Call: WRITE
  • Prompt: !!,"Do you want to copy this order"
  • Line Location: PSGOD+23
Function Call: WRITE
  • Prompt: !!,"...copying..."
  • Line Location: PSGOD+26
Function Call: WRITE
  • Prompt: !!,"Provider not authorized to prescribe medications in Federal Schedule "_PSJDEA_".",!,"Please contact the provider.",!
  • Line Location: PSGOD+39
Function Call: WRITE
  • Prompt: !!,"Order not copied."
  • Line Location: PSGOD+59
Function Call: WRITE
  • Prompt: "."
  • Line Location: PSGOD+62
Function Call: WRITE
  • Prompt: "."
  • Line Location: PSGOD+66
Function Call: WRITE
  • Prompt: !!,"You are finished with the new order.",!,"The following ACTION prompt is for the original order."
  • Line Location: PSGOD+93
Function Call: WRITE
  • Prompt: !!?2,"Answer 'YES' to have a new, non-verified order created for this patient,",!,"using the information from this order. (The START and STOP dates will be",!,"recalculated.) Enter 'NO' (or '^') to stop now."
  • Line Location: CH+1
Function Call: WRITE
  • Prompt: !!?2,"Answer 'YES' to take action on this new order. Enter 'NO' (or '^') to return",!,"to the original order now."
  • Line Location: WH+1
Routine Call
  • DIC
  • Line Location:
    • PSGOD+16
Routine Call
  • DIE
  • Line Location:
    • PSGOD+84
Routine Call
  • DIR
  • Line Location:
    • PSGOD+72
    • PSGOD+94
Routine Call
  • VALM
  • Line Location:
    • PSGOD+74
    • PSGOD+89

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(55 - [#55] GET1^DIQ
^YSCL(603.01 - [#603.01] FIND1^DIC,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.1 - [#53.1] PSGOD+91
^PS(53.45 - [#53.45] PSGOD+45*, PSGOD+47*, PSGOD+52*, PSGOD+53*!, PSGOD+54!, DONE+1!, OC+3, OC+4
^PS(55 - [#55] PSGOD+9, PSGOD+30
^TMP($J PSGOD+83!, PSGOD+84, PSGOD+86!

Label References

Name Line Occurrences
CH PSGOD+23
DONE PSGOD+12, PSGOD+24
OC PSGOD+75
ORIG PSGOD+36, PSGOD+59, PSGOD+76

Naked Globals

Name Field # of Occurrence
^( PSGOD+45, PSGOD+51
^(0 PSGOD+45, PSGOD+52, PSGOD+53

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PSGOD+23*, PSGOD+24, DONE+1!
%H DONE+1!
%I DONE+1!
>> ANQX PSGOD+12, PSGOD+20*, OC+10*
>> CHK PSGOD+68*, PSGOD+71*
CLOZFLG PSGOD+12~, PSGOD+13*, PSGOD+82, PSGOD+85, OC+10
CLOZNUM PSGOD+14~, PSGOD+15*, PSGOD+16
>> CLOZPAT PSGOD+21*
CLOZUID PSGOD+14~, PSGOD+16*, PSGOD+17, PSGOD+21
DA PSGOD+84*, DONE+1!
DA(1 PSGOD+84*
>> DFN PSGOD+15, PSGOD+83, PSGOD+84, PSGOD+86
>> DIE PSGOD+84*
DIR PSGOD+72!, PSGOD+94!
DIR("A" PSGOD+72*
DIR(0 PSGOD+72*, PSGOD+94*
>> DR PSGOD+84*
DUZ PSGOD+65
F PSGOD+31*, PSGOD+45, PSGOD+51, DONE+1!
N PSGOD+31*, DONE+1!
>> ND PSGOD+51*, PSGOD+52, PSGOD+53, PSGOD+54
OLDON PSGOD+26~, PSGOD+30*, PSGOD+93, ORIG+1
PDEA PSGOD+36~*, PSGOD+38*
>> PSGAT PSGOD+65*, PSGOD+69*, PSGOD+70
>> PSGCANFL PSGOD+93*
>> PSGCOPY PSGOD+81
PSGDN PSGOD+85~*
PSGDO PSGOD+33*, PSGOD+66, DONE+2!
>> PSGDT PSGOD+65
>> PSGDUR PSGOD+42*
>> PSGEBN PSGOD+65*
>> PSGEDT PSGOD+81
PSGEFN PSGOD+63!*
PSGEFN( PSGOD+63*
>> PSGFD PSGOD+73*, PSGOD+77
>> PSGFDN PSGOD+64*
PSGHSM PSGOD+32*, DONE+2!
PSGK5345 PSGOD+50~*, PSGOD+52, PSGOD+53*, PSGOD+54*, PSGOD+55!
>> PSGLIN PSGOD+65*
PSGMR PSGOD+32*, PSGOD+66, DONE+2!
PSGNEDFD PSGOD+61*, DONE+2!
PSGNEFD PSGOD+64, PSGOD+66, PSGOD+73, PSGOD+77*, DONE+2!
PSGNESD PSGOD+56*, PSGOD+64, PSGOD+66, PSGOD+73, PSGOD+77*, DONE+1!
PSGODF PSGOD+61*, DONE+1!
PSGODN PSGOD+31!, DONE+1!
PSGODN( PSGOD+31*, PSGOD+33, PSGOD+42
PSGODN(0 PSGOD+32
PSGODN(1 PSGOD+51*, PSGOD+52*, PSGOD+53*, PSGOD+54*
PSGODN(2 PSGOD+56
PSGODN(3 PSGOD+45*, PSGOD+47
PSGODN(6 PSGOD+43
>> PSGOEAV PSGOD+65, PSGOD+78
PSGOEE PSGOD+63!, PSGOD+78!, PSGOD+79
PSGOEEF PSGOD+63!, PSGOD+89~*
PSGOEOS PSGOD+63!
>> PSGOEPR PSGOD+30*
>> PSGOINST PSGOD+64*
>> PSGORD PSGOD+30, PSGOD+31, PSGOD+78, PSGOD+79, PSGOD+88, PSGOD+89, PSGOD+91, PSGOD+93*, OC+16
PSGORQF PSGOD+27!, PSGOD+75, OC+11, OC+15, OC+16
>> PSGP PSGOD+9, PSGOD+13, PSGOD+30, PSGOD+31, PSGOD+89, ORIG+1, OC+15
>> PSGPDN PSGOD+64*
PSGPDRG PSGOD+28~, PSGOD+33*, PSGOD+36, PSGOD+37, PSGOD+61, PSGOD+64, PSGOD+66, DONE+2!
PSGPR PSGOD+32*, PSGOD+38, DONE+2!
>> PSGRF PSGOD+42*
>> PSGRMV PSGOD+42*
>> PSGRMVT PSGOD+42*
PSGS0XT PSGOD+56*, PSGOD+71, DONE+1!
PSGS0Y PSGOD+56*, PSGOD+65, PSGOD+69, PSGOD+70*, PSGOD+71, DONE+1!
PSGSCH PSGOD+56*, PSGOD+58, PSGOD+60*, PSGOD+61, PSGOD+66, PSGOD+67, PSGOD+68, DONE+2!
>> PSGSD PSGOD+73*, PSGOD+77
>> PSGSDN PSGOD+64*
>> PSGSI PSGOD+43*
PSGSM PSGOD+32*, DONE+2!
PSGST PSGOD+32*, PSGOD+61, PSGOD+66, DONE+2!
>> PSGSTAT PSGOD+65*
PSGTOL DONE+1!
PSGTOO DONE+1!
PSGUOW DONE+1!
PSJACEPT PSGOD+74!, PSGOD+75*, PSGOD+76
PSJALLGY OC+1~
PSJALLGY( OC+5*
PSJALLGY(0 OC+7, OC+13
>> PSJCOFLG PSGOD+76
PSJDD OC+1~, OC+4*, OC+5, OC+7*, OC+13*, OC+15, OC+16
PSJDEA PSGOD+37~*, PSGOD+38, PSGOD+39
>> PSJNOO PSGOD+75*, PSGOD+76
PSJNSS PSGOD+68!, PSGOD+71!
>> PSJOCFG PSGOD+91
PSJOLDNM PSGOD+29~, PSGOD+59!, PSGOD+60!
PSJOLDNM("NEW_SCHD" PSGOD+60
PSJOLDNM("ORD_SCHD" PSGOD+58*
>> PSJORD PSGOD+9, PSGOD+13, PSGOD+78*, PSGOD+83, PSGOD+84, PSGOD+93*
>> PSJSYSP PSGOD+45, PSGOD+47, PSGOD+52, PSGOD+53, PSGOD+54, DONE+1, OC+3, OC+4
>> PSJSYSU PSGOD+79
Q PSGOD+28~, PSGOD+30*, PSGOD+45*, PSGOD+51*
QX PSGOD+68~
SDW PSGOD+68~
SWD PSGOD+68~
U PSGOD+42, PSGOD+56, PSGOD+61, PSGOD+64, PSGOD+65, PSGOD+66, PSGOD+85, PSGOD+91
>> VAIN(4 PSGOD+8
>> VALMBCK PSGOD+74*, PSGOD+75*
X PSGOD+63*, PSGOD+68~*, DONE+1!, OC+1~, OC+3*, OC+4
XABB PSGOD+68~
Y PSGOD+74, DONE+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All