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

Package: Registration

Routine: DPTDZDCH


Information

DPTDZDCH ; IHS/TUCSON/JCM - DELETE CHARTS FROM MERGED FROM PATIENT ;

Source Information

Source file <DPTDZDCH.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 3 ^DIC  ^DIE  ^DIR  

Entry Points

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

External References

Name Field # of Occurrence
^DIC GETSITE+2
^DIE DELCHART+2
^DIR GETFROM+3, GETOK+3

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 delete chart numbers from patients who have been merged ",!,"away.",!
  • 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: !!?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: !!,"I will delete 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.. Deleting the From patient chart number failed in DIE!"
  • Line Location: DELCHART+3
Function Call: WRITE
  • Prompt: !!?30,"Remaining Chart Numbers for this patient"
  • Line Location: DISPLAY2+1
Function Call: WRITE
  • Prompt: !!,"From DFN: ",DPTDZFCH("FROM"),?22,"Name: ",$P(^DPT(DPTDZFCH("FROM"),0),U)
  • Line Location: DISPLAY2+2
Function Call: WRITE
  • Prompt: !?20,$P(^DIC(4,$P(^AUPNPAT(DPTDZFCH("FROM"),41,X,0),U),0),U)," ",$P(^AUPNPAT(DPTDZFCH("FROM"),41,X,0),U,2)
  • Line Location: DISPLAY2+3
Routine Call
  • DIE
  • Line Location:
    • DELCHART+2
Routine Call
  • DIC
  • Line Location:
    • GETSITE+2
Routine Call
  • DIR
  • Line Location:
    • GETFROM+3
    • GETOK+3

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)
^AUPNPAT - [#9000001] GETSITE+4, GETSITE+6, GETSITE+7, DISPLAY2+3
^DIC(4 - [#4] DISPLAY2+3
^DPT - [#2] GETFROM+5, GETFROM+6, GETFROM+7, GETSITE+4, DISPLAY+3, DISPLAY2+2

Label References

Name Line Occurrences
DELCHART START+9
DISPLAY START+6
DISPLAY2 START+10
END START+3, START+5, START+8
GETFROM START+2, GETFROM+5, GETFROM+6
GETOK START+7
GETSITE START+4, GETSITE+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGQI END+1!
AGQT END+1!
AGTP END+1!
APCHSPAT END+1!
APCHSTYP END+1!
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!, DELCHART+2*
DA(1 DELCHART+2*
DFN END+2!
DI END+2!
DIC END+2!, GETSITE+2*!
DIC("A" GETSITE+2*
DIC(0 GETSITE+2*
DIE END+2!, DELCHART+2*, DELCHART+3!
DIK END+2!
DIR GETFROM+3!, GETOK+3!
DIR("?" GETFROM+3*
DIR("A" GETFROM+3*, GETOK+3*
DIR("B" GETOK+3*
DIR(0 GETFROM+3*, GETOK+3*
DIRUT GETFROM+3*, GETFROM+4, GETFROM+5!, GETFROM+6!, GETOK+3*, GETOK+4
>> DITC DELCHART+2*
DIW END+2!
DIWT END+2!
DN END+2!
DO END+2!
DPTDZFCH END+1!
DPTDZFCH("CHA RT SITE" , START+5, GETSITE+1*, GETSITE+5*, GETSITE+6, GETSITE+7, DELCHART+2
DPTDZFCH("FRO M CHART" , GETSITE+6*, DISPLAY+3
DPTDZFCH("FROM" START+3, GETFROM+1*, GETFROM+7*, GETSITE+4, GETSITE+6, DISPLAY+3, DELCHART+2, DISPLAY2+2, DISPLAY2+3
DPTDZFCH("OK" START+8, GETOK+1*, GETOK+6*
DPTDZFCH("TO CHART" , GETSITE+7*
DPTDZFCH("TO" GETFROM+7*, GETSITE+7
DQ END+2!
DR END+2!, DELCHART+2*
>> DUOUT GETFROM+3, GETOK+3
E END+2!
I END+2!
IOF START+1, DISPLAY+1
U GETFROM+6, GETFROM+7, GETSITE+4, GETSITE+6, GETSITE+7, DISPLAY+3, DISPLAY2+2, DISPLAY2+3
X END+2!, DISPLAY2+3*
XY END+2!
Y END+2!, GETFROM+5!, GETFROM+6!, GETFROM+7, GETSITE+3, GETSITE+4!, GETSITE+5, GETOK+5, DELCHART+3!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All