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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DPTDZFCH

Package: Registration

Routine: DPTDZFCH


Information

DPTDZFCH ; IHS/TUCSON/JCM - CHANGE CHART NUMBERS FOR MERGED PATIENTS ; [ 02/02/94 4:52 PM ]

Source Information

Source file <DPTDZFCH.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 ^DIC  ^DIE  ^DIR  
IHS Patient Registration 1 START^AGFACE  
Kernel 1 ^%ZIS  
Patient Care Component 1 EN^APCHS  

Entry Points

Name Comments DBIA/ICR reference
END ;END OF JOB
DEVICEX
GETOK ;
GETFROM ;get the from patient (DFN)
DEVICE ;
ASKX
FACE ;
START ;
CHGCHART ;change chart number
ASK ;
DISPLAY2 ; print new chart info, face sheet and health summary
GETSITE ; GET the site for the chart number to be switched
HEALTH ;
DISPLAY ;DISPLAY CURRENT CHART NUMBERS

External References

Name Field # of Occurrence
^%ZIS DEVICE+2
START^AGFACE FACE+3
EN^APCHS HEALTH+4
^DIC GETSITE+2, ASK+9
^DIE CHGCHART+2, CHGCHART+4
^DIR GETFROM+3, GETOK+3, ASK+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !,"This program will switch chart numbers for patients who have been merged ",!,"together and who have had the wrong chart number kept for the patient.",!!
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !,"Okay, Bye!!"
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !
  • Line Location: GETFROM+2
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"That patient does not exist!!"
  • Line Location: GETFROM+5
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"That patient has NOT been merged away!!"
  • Line Location: GETFROM+6
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"The 'From' patient, ",$P(^DPT(DPTDZFCH("FROM"),0),U)," does not have a chart at that facility."
  • Line Location: GETSITE+4
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"The 'To' patient, ",$P(^DPT(DPTDZFCH("TO"),0),U)," does not have a chart at that facility."
  • Line Location: GETSITE+5
Function Call: WRITE
  • Prompt: !!?28,"Current Chart Number Data"
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !!,"From DFN: ",DPTDZFCH("FROM"),?22,"Name: ",$P(^DPT(DPTDZFCH("FROM"),0),U),?59,"Chart No.: ",DPTDZFCH("FROM CHART")
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !," To DFN: ",DPTDZFCH("TO"),?22,"Name: ",$P(^DPT(DPTDZFCH("TO"),0),U),?59,"Chart No.: ",DPTDZFCH("TO CHART")
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !!,"I will switch the chart numbers listed above.",!
  • Line Location: GETOK+2
Function Call: WRITE
  • Prompt: !!,"Okay, I won't"
  • Line Location: GETOK+5
Function Call: WRITE
  • Prompt: !!,"OOPS.. Changing the From patient chart number failed in DIE!"
  • Line Location: CHGCHART+3
Function Call: WRITE
  • Prompt: !!,"OOPS.. Changing the To patient chart number failed in DIE!"
  • Line Location: CHGCHART+5
Function Call: WRITE
  • Prompt: !!?30,"NEW Chart Number Data"
  • Line Location: DISPLAY2+1
Function Call: WRITE
  • Prompt: !!,"From DFN: ",DPTDZFCH("FROM"),?22,"Name: ",$P(^DPT(DPTDZFCH("FROM"),0),U),?59,"Chart No.: ",$P(^AUPNPAT(DPTDZFCH("FROM"),41,DPTDZFCH("CHART SITE"),0),U,2)
  • Line Location: DISPLAY2+2
Function Call: WRITE
  • Prompt: !," To DFN: ",DPTDZFCH("TO"),?22,"Name: ",$P(^DPT(DPTDZFCH("TO"),0),U),?59,"Chart No.: ",$P(^AUPNPAT(DPTDZFCH("TO"),41,DPTDZFCH("CHART SITE"),0),U,2)
  • Line Location: DISPLAY2+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK+2
Routine Call
  • DIE
  • Line Location:
    • CHGCHART+2
    • CHGCHART+4
Routine Call
  • DIC
  • Line Location:
    • GETSITE+2
    • ASK+9
Routine Call
  • DIR
  • Line Location:
    • GETFROM+3
    • GETOK+3
    • ASK+5
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUTTLOC - [#9999999.06] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("XY" HEALTH+1, FACE+1
^APCHSCTL("B" ASK+9
^AUPNPAT - [#9000001] GETSITE+4, GETSITE+5, GETSITE+7, GETSITE+8, DISPLAY2+2, DISPLAY2+3
^AUTTSITE(1 ASK+4
^DPT - [#2] GETFROM+5, GETFROM+6, GETFROM+7, GETSITE+4, GETSITE+5, DISPLAY+3, DISPLAY+4, DISPLAY2+2, DISPLAY2+3

Label References

Name Line Occurrences
ASK DISPLAY2+5
ASKX ASK+6, ASK+7
CHGCHART START+9
DEVICE DISPLAY2+7
DEVICEX DEVICE+3
DISPLAY START+6
DISPLAY2 START+10
END START+3, START+5, START+8, DISPLAY2+5, DISPLAY2+7
FACE DISPLAY2+9
GETFROM START+2, GETFROM+5, GETFROM+6
GETOK START+7
GETSITE START+4, GETSITE+4, GETSITE+5
HEALTH DISPLAY2+8

Naked Globals

Name Field # of Occurrence
^("XY" HEALTH+1, FACE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICEX!
%ZIS(0 DEVICE+2*
AGOPT DISPLAY2+9!, FACE+3!
AGQI END+1!
AGQT END+1!
AGTP END+1!
APCHSPAT END+1!, HEALTH+2!, HEALTH+3*
APCHSTYP END+1!, HEALTH+2!, HEALTH+3*
AUPNDAYS END+1!
AUPNDOB END+1!
AUPNDOD END+1!
AUPNPAT END+1!
AUPNSEX END+1!
C END+2!
D END+2!
D0 END+2!
DA END+2!, CHGCHART+2*, CHGCHART+4*
DA(1 CHGCHART+2*, CHGCHART+4*
DFN END+2!, FACE+2*
DI END+2!
DIC END+2!, GETSITE+2*!, ASK+8!*, ASK+9!
DIC("A" GETSITE+2*, ASK+8*
DIC("B" ASK+9*
DIC(0 GETSITE+2*, ASK+8*
DIE END+2!, CHGCHART+2*, CHGCHART+3!, CHGCHART+4*, CHGCHART+5!
DIK END+2!
DIR GETFROM+3!, GETOK+3!, ASK+1!, ASK+5!
DIR("?" GETFROM+3*
DIR("A" GETFROM+3*, GETOK+3*, ASK+3*, ASK+4*
DIR("B" GETOK+3*, ASK+3*
DIR(0 GETFROM+3*, GETOK+3*, ASK+3*
DIRUT GETFROM+3*, GETFROM+4, GETFROM+5!, GETFROM+6!, GETOK+3*, GETOK+4
DIW END+2!
DIWT END+2!
DN END+2!
DO END+2!
DPTDZFCH END+1!
DPTDZFCH("CHA RT SITE" , START+5, GETSITE+1*, GETSITE+6*, GETSITE+7, GETSITE+8, CHGCHART+2, CHGCHART+4, DISPLAY2+2, DISPLAY2+3
DPTDZFCH("DEVICE" DEVICE+1, DEVICE+4*
DPTDZFCH("FRO M CHART" , GETSITE+7*, DISPLAY+3, CHGCHART+4
DPTDZFCH("FROM" START+3, GETFROM+1*, GETFROM+7*, GETSITE+4, GETSITE+7, DISPLAY+3, CHGCHART+2, DISPLAY2+2
DPTDZFCH("OK" START+8, GETOK+1*, GETOK+6*
DPTDZFCH("PAT" DISPLAY2+6*, HEALTH+3, FACE+2
DPTDZFCH("PCC" DISPLAY2+8, ASK+4*, ASK+8
DPTDZFCH("QFLG" DISPLAY2+4*, DISPLAY2+5, DISPLAY2+7, ASK+6*, ASK+7*, ASK+9*, DEVICE+3*
DPTDZFCH("TO CHART" , GETSITE+8*, DISPLAY+4, CHGCHART+2
DPTDZFCH("TO" GETFROM+7*, GETSITE+5, GETSITE+8, DISPLAY+4, CHGCHART+4, DISPLAY2+3, DISPLAY2+6
DPTDZFCH("TYPE" ASK+9*, HEALTH+3
DQ END+2!
DR END+2!, CHGCHART+2*, CHGCHART+4*
>> DTOUT ASK+6
>> DUOUT GETFROM+3, GETOK+3, ASK+6
DX HEALTH+1*!, FACE+1*!
DY HEALTH+1*!, FACE+1*!
E END+2!
I END+2!
IO DEVICE+4
IOF START+1, DISPLAY+1
IOM DEVICE+4
>> IOP DEVICE+1*
IOSL DEVICE+4
IOST DEVICE+4
POP DEVICE+3, DEVICEX!
U GETFROM+6, GETFROM+7, GETSITE+4, GETSITE+5, GETSITE+7, GETSITE+8, DISPLAY+3, DISPLAY+4, DISPLAY2+2, DISPLAY2+3
, ASK+4
X END+2!, ASK+9*
XY END+2!
Y END+2!, GETFROM+5!, GETFROM+6!, GETFROM+7, GETSITE+3, GETSITE+4!, GETSITE+5!, GETSITE+6, GETOK+5, CHGCHART+3!
, CHGCHART+5!, ASK+7, ASK+8!, ASK+9, ASKX!
Info |  Source |  Call 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