Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: VAFCPDAT

Package: Registration

Routine: VAFCPDAT


Information

VAFCPDAT ;BIR/CML/ALS-DISPLAY MPI/PD INFORMATION FOR SELECTED PATIENT ; 7/12/16 11:11am

Source Information

Source file <VAFCPDAT.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Entry point with device call
  • ICR #3299
    • Status: Active
    • Usage: Private
    START ;Entry point without device call, used for RPC calls
  • ICR #3299
    • Status: Active
    • Usage: Private
    TF ;List Treating Facilities for this patient
    SUB ;removed listing of subscribers for RG*1.0*23
    HIS ;find ICN history
    CONT ;Continue to VAFCPDT2 for extended data
    DONE ;
    QUIT ;
    TFHDR ;
    ICNHDR
    SS

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"MPI not installed."
    • Line Location: START+1
    Function Call: WRITE
    • Prompt: @IOF,!," "
    • Line Location: START+6
    Function Call: WRITE
    • Prompt: @IOF,!
    • Line Location: START+43
    Function Call: WRITE
    • Prompt: !,"MPI/PD Data for: ",NAME," (DFN #",DFN,")"
    • Line Location: START+44
    Function Call: WRITE
    • Prompt: !!,"Access denied: Required parameters not defined"
    • Line Location: START+48
    Function Call: WRITE
    • Prompt: ?50,"***PATIENT MARKED SENSITIVE***"
    • Line Location: START+49
    Function Call: WRITE
    • Prompt: !!,"Access not allowed on your own PATIENT (#2) file entry"
    • Line Location: START+50
    Function Call: WRITE
    • Prompt: !!,"Access denied: Your SSN is not defined"
    • Line Location: START+51
    Function Call: WRITE
    • Prompt: !,"Printed ",HDT," at ",SITENAM,!,LN
    • Line Location: START+55
    Function Call: WRITE
    • Prompt: !,"ICN : ",ICN
    • Line Location: START+58
    Function Call: WRITE
    • Prompt: !,"SSN : ",SSN
    • Line Location: START+59
    Function Call: WRITE
    • Prompt: !?9,"SSN Verification Status: ",SSNVER
    • Line Location: START+60
    Function Call: WRITE
    • Prompt: !?9,"Pseudo SSN Reason: ",PREAS
    • Line Location: START+61
    Function Call: WRITE
    • Prompt: !?9,"Individual Tax ID: ",ITIN
    • Line Location: START+62
    Function Call: WRITE
    • Prompt: !,"Birth Sex : ",SEX
    • Line Location: START+64
    Function Call: WRITE
    • Prompt: !,"Sexual Orientation: "
    • Line Location: START+68
    Function Call: WRITE
    • Prompt: !,"Sexual Orientation Free Text: ",SXOD
    • Line Location: START+75
    Function Call: WRITE
    • Prompt: !,"Pronoun: "
    • Line Location: START+77
    Function Call: WRITE
    • Prompt: !,"Pronoun Description: ",PRND
    • Line Location: START+81
    Function Call: WRITE
    • Prompt: !,"Self-Identified Gender Identity: ",SIGEN
    • Line Location: START+82
    Function Call: WRITE
    • Prompt: !,"Claim # : ",CLAIM
    • Line Location: START+83
    Function Call: WRITE
    • Prompt: !,"Date of Birth: ",DOB
    • Line Location: START+84
    Function Call: WRITE
    • Prompt: !,"Date of Death: ",DOD
    • Line Location: START+87
    Function Call: WRITE
    • Prompt: !,?15,"Entered By: ",?42,DODENTBY
    • Line Location: START+88
    Function Call: WRITE
    • Prompt: !,?15,"Source of Notification: ",?42,DODSRC
    • Line Location: START+89
    Function Call: WRITE
    • Prompt: !,?15,"Last Updated: ",?42,DODLUPD
    • Line Location: START+90
    Function Call: WRITE
    • Prompt: !,?15,"Last Edited By: ",?42,DODLEBY
    • Line Location: START+91
    Function Call: WRITE
    • Prompt: !,?15,"Supporting Document Type: ",?42,DODD
    • Line Location: START+92
    Function Call: WRITE
    • Prompt: !,?15,"Option Used: ",?42,DODOPT
    • Line Location: START+93
    Function Call: WRITE
    • Prompt: !,"Multiple Birth Indicator: ",MBI
    • Line Location: START+94
    Function Call: WRITE
    • Prompt: !,"DoD Temporary ID Number : ",TIN
    • Line Location: START+95
    Function Call: WRITE
    • Prompt: !,"DoD Foreign ID Number : ",FIN
    • Line Location: START+96
    Function Call: WRITE
    • Prompt: " (Bad Address Indicator: ",BAI,")"
    • Line Location: START+97
    Function Call: WRITE
    • Prompt: !?9,STR1
    • Line Location: START+98
    Function Call: WRITE
    • Prompt: !?9,STR2
    • Line Location: START+99
    Function Call: WRITE
    • Prompt: !?9,STR3
    • Line Location: START+100
    Function Call: WRITE
    • Prompt: !?9,$E(CTY,1,20)_", "_$G(ST)_" "_$G(ZIP)
    • Line Location: START+102
    Function Call: WRITE
    • Prompt: !?9,CTY_", "_PROVINCE_" ("_CNAME_") "_POSTCODE
    • Line Location: START+105
    Function Call: WRITE
    • Prompt: !?9,CTY_", "_"("_CNAME_") "_POSTCODE
    • Line Location: START+106
    Function Call: WRITE
    • Prompt: !,"Residential Address: "
    • Line Location: START+107
    Function Call: WRITE
    • Prompt: !?9,REST1
    • Line Location: START+108
    Function Call: WRITE
    • Prompt: !?9,REST2
    • Line Location: START+109
    Function Call: WRITE
    • Prompt: !?9,REST3
    • Line Location: START+110
    Function Call: WRITE
    • Prompt: !?9,$E(RESCTY,1,20)_", "_$G(RESST)_" "_$G(RESZP)
    • Line Location: START+111
    Function Call: WRITE
    • Prompt: !?9,RESCTY_", "_RESP_" ("_RCNAME_") "_RESPC
    • Line Location: START+114
    Function Call: WRITE
    • Prompt: !?9,RESCTY_", "_"("_RCNAME_") "_RESPC
    • Line Location: START+115
    Function Call: WRITE
    • Prompt: !,"Phone #: ",PHN
    • Line Location: START+116
    Function Call: WRITE
    • Prompt: !,"Work #: ",WPHN
    • Line Location: START+118
    Function Call: WRITE
    • Prompt: !,"Cell #: ",CPHN
    • Line Location: START+119
    Function Call: WRITE
    • Prompt: !
    • Line Location: START+123
    Function Call: WRITE
    • Prompt: !,"No Treating Facilities found."
    • Line Location: TF+22
    Function Call: WRITE
    • Prompt: " - changed ",HISDT
    • Line Location: HIS+18
    Function Call: WRITE
    • Prompt: !!,"Treating Facilities:",?22,"Station:",?32,"DT Last Treated",?54,"Event Reason"
    • Line Location: TFHDR+1
    Function Call: WRITE
    • Prompt: !,"--------------------",?22,"--------",?32,"---------------",?54,"------------"
    • Line Location: TFHDR+2
    Function Call: WRITE
    • Prompt: !!,"ICN History:",!,"------------"
    • Line Location: ICNHDR+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: SS+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    2.025 GETS^DIQ
    ^VAT(391.72 - [#391.72] Classic Fileman Calls
    ^DGCN(391.91 - [#391.91] Classic Fileman Calls
    ^HL(779.004 - [#779.004] GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call