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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DG1010S1

Package: Registration

Routine: DG1010S1


Information

DG1010S1 ;ALB/MRL - SUPPLEMENTAL DATA SHEET FOR 10-10 ; 19 JUN 86

Source Information

Source file <DG1010S1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Registration 3 (,Q)^DG1010S2  $$FIRST^DGUTL  $$SITE^VASITE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DG1010P7  

Entry Points

Name Comments DBIA/ICR reference
EL
C
EN ;

External References

Name Field # of Occurrence
^DG1010S2 C+1
Q^DG1010S2 EN+8
$$FIRST^DGUTL EN+8
$$SITE^VASITE EN+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,DGLDOUBL,!?5
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: $S((+X=-1):"FACILITY NOT IDENTIFIED",1:$P(X,U,2)_" ("_$P(X,U,3)_")")
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: ?105,"SUPPLEMENTAL DATA SHEET",!?5,DGLDOUBL,!?5,"1. Applicant's Name: ",DGNAM,?90,"| 2. SSN: ",DGSS,!?5,DGLSUP1,!?5,"3. Other Name(s): "
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !?9
  • Condition for execution: (128-$X)<$L(DGD)
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: DGD
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !?5,DGLSUP1,!?5,"4. Remarks: ",DGD,!?5,DGLSUP1
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !?5,"5. Fathers Name: ",$S($L($P(DGD,U,1)):$P(DGD,U,1),1:"NOT SPECIFIED"),?90,"|"
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !?9,"Mothers Name: ",$S($L($P(DGD,U,2)):$P(DGD,U,2),1:"NOT SPECIFIED"),?90,"|",!?9,"Mothers Maiden Name: ",$S($L($P(DGD,U,3)):$P(DGD,U,3),1:"NOT SPECIFIED"),?90,"|",!?5,DGLSUP1
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !?5,"6a. Enrollment Clinic(s): "
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !?9
  • Condition for execution: (128-$X)<$L(DGD)
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: DGD
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !?5,DGLSUP,!?5,"6b. Future Appointments: "
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !?9
  • Condition for execution: (128-$X)<$L(DGD)
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: DGD
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !?5,DGLSUP1,!?5,"7a. Last Admission: "
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: "NO PREVIOUS ADMISSIONS TO THIS FACILITY ON FILE"
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: "LAST ADMISSION PTF DATA NO LONGER STORED"
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: Y
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: " (DISCHARGED '"_Y_"')"
  • Condition for execution: Y]""
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: !?5,DGLSUP,!?5,"7b. Discharge Diagnosis(es): "
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: !?9
  • Condition for execution: (128-$X)<$L(I2)
  • Line Location: EN+24
Function Call: WRITE
  • Prompt: I2
  • Line Location: EN+24
Function Call: WRITE
  • Prompt: X
  • Line Location: EN+26
Function Call: WRITE
  • Prompt: !?5,"8. Eligibility Status: ",$S(DGD="P":"PENDING VERIFICATION",DGD="R":"PENDING RE-VERIFICATION",DGD="V":"VERIFIED",1:"UNKNOWN OR NONE"),?90,"| Status Date: ",Y,!?9,"Verification Method: ",DGD(1),?90,"| By: ",DGD(2)
  • Line Location: EL+2
Function Call: WRITE
  • Prompt: !?9,"Ineligible Date: ",Y
  • Line Location: EL+3
Function Call: WRITE
  • Prompt: ?90,"| TWX Source: ",DGD(1),!?9,"TWX City: ",DGD(2),?90,"| TWX State: ",$E(DGD(3),1,26),!?9,"VARO Decision: ",DGD(4),!?5,DGLSUP1
  • Line Location: C+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN+5, EN+18, EN+23, EL+1, EL+3
^DGPM - [#405] EN+21, EN+22
^DGPM("ATID1" EN+20, EN+21
^DGPT - [#45] EN+21, EN+23, EN+25
^DIC(5 - [#5] EL+4
^DPT - [#2] EN+4, EN+5, EN+12, EN+16, EN+18, EN+20
^ICD9 - [#80] EN+24, EN+25, EN+26
^SC - [#44] EN+16, EN+18
^VA(200 - [#200] EN+5, EL+1

Label References

Name Line Occurrences
C EL+4
EL EN+20, EN+21

Naked Globals

Name Field # of Occurrence
^( EN+12, EN+16, EN+18
^(0 EN+5, EN+12, EN+16, EN+18, EN+21, EN+22, EN+23, EN+24, EN+25, EN+26
, EL+1, EL+4
^(70 EN+23, EN+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN EN+4, EN+5, EN+12, EN+16, EN+18, EN+20, EN+21
>> DFN1 EN+5
DGAD EN+20*, C+1!
>> DGAP EN+5*
>> DGCLK EN+5*
DGD EN+5*, EN+12*, EN+13!*, EN+14*, EN+15, EN+16*, EN+17!, EN+18*, EN+20*, EN+21*
, EN+22*, EN+23, EN+25, EL*, EL+1, EL+2, EL+3*, EL+4, EL+5, C+1!
DGD( EL+3*
DGD(1 EN+12*, EN+18*, EN+25*, EN+26, EL*, EL+2, EL+4*, C
DGD(2 EL*, EL+1*, EL+2, EL+4*, C
DGD(3 EL+4*, C
DGD(4 EL+5*, C
DGEL EL+3*, EL+4, C+1!
>> DGLDOUBL EN+1*, EN+7*, EN+9, EN+11
>> DGLSUP EN+2*, EN+17, EN+23, EN+25, EN+26
>> DGLSUP1 EN+3*, EN+11, EN+13, EN+15, EN+19, EL, C
>> DGNAM EN+5*, EN+11
>> DGP( EN+4*, EN+14, EL, EL+3
>> DGP("INE" EL+3
>> DGP(0 EN+5, EN+6, EN+13
>> DGSS EN+6*, EN+11
DT EN+17
I EN+4*, EN+12*, EN+13!, EN+16*, EN+17!, EN+24*, EL+3*, C+1!
I1 EN+12*, EN+13!, EN+16*, EN+17!*, EN+18*, EN+19, EN+23*, EN+24, C+1!
I2 EN+17*, EN+18*, EN+24*, C+1!
>> I3 EN+24*, EN+25
>> J EN+18*
U EN+5, EN+6, EN+10, EN+12, EN+13, EN+14, EN+15, EN+16, EN+18, EN+23
, EN+24, EN+25, EN+26, EL, EL+1, EL+3, EL+4, EL+5
>> X EN+10*, EN+25*, EN+26*
Y EN+5*, EN+18*, EN+22*, EN+23*, EL*, EL+1*, EL+2, EL+3*, C+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All